home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v8n02.arc / TYPE.BAS < prev    next >
BASIC Source File  |  1989-01-08  |  275b  |  14 lines
  1.      TYPE FLen
  2.           Stuff AS STRING * 11
  3.      END TYPE
  4.  
  5.      DECLARE SUB FLSub (Param() AS FLen)
  6.      DIM A(100) AS FLen
  7.  
  8.      A(89).Stuff = "Testing #89"
  9.      CALL FLSub(A())
  10.  
  11.      SUB FLSub (Array() AS FLen)
  12.          PRINT Array(89).Stuff
  13.      END SUB
  14.